home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / SDATE < prev    next >
Text File  |  1997-04-05  |  199b  |  5 lines
  1. SDATE: procedure;arg da,mo
  2.   da=substr(da,12,4)right(index("ANEBARPRAYUNULUGEPCTOVEC",substr(da,9,2))%2+1,2,"0")right(strip(substr(da,5,2)),2,"0")
  3.   if mo="I" then return date("i",da,"s")
  4.  return da
  5.